home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / AIncludes / PickerEqu.a < prev    next >
Encoding:
Text File  |  1992-01-29  |  2.4 KB  |  115 lines  |  [TEXT/MPS ]
  1. ; Version: 3.07
  2. ; Created: Friday, October 20, 1989 at 9:35:40 PM
  3. ;
  4. ; File: PickerEqu.a
  5. ;
  6. ; Assembler Interface to the Macintosh Libraries
  7. ; Copyright Apple Computer, Inc. 1987-1991
  8. ; All Rights Reserved
  9. ;
  10. ;--------------------------------------------------------------------
  11.  
  12.     IF &TYPE('__IncludingPickerEqu__') = 'UNDEFINED' THEN
  13. __IncludingPickerEqu__    SET    1
  14.  
  15. MaxSmallFract     EQU         $0000FFFF                 ; Maximum small fract value, as LONGINT
  16.  
  17. ; For developmental simplicity in switching between the HLS and HSV
  18. ; models, HLS is reordered into HSL. Thus both models start with
  19. ; hue and saturation values; value/lightness/brightness is last.
  20.  
  21. HSVColor          RECORD      0
  22. hue               DS.W        1                         ; Fraction of circle, red at 0
  23. saturation        DS.W        1                         ; 0-1, 0 for gray, 1 for pure color
  24. value             DS.W        1                         ; 0-1, 0 for black, 1 for max intensity
  25.                   ENDR
  26.  
  27. HSLColor          RECORD      0
  28. hue               DS.W        1                         ; Fraction of circle, red at 0
  29. saturation        DS.W        1                         ; 0-1, 0 for gray, 1 for pure color
  30. lightness         DS.W        1                         ; 0-1, 0 for black, 1 for white
  31.                   ENDR
  32.  
  33.  
  34.  
  35.  
  36.  
  37. CMYColor          RECORD      0
  38. cyan              DS.W        1
  39. magenta           DS.W        1
  40. yellow            DS.W        1
  41.                   ENDR
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48. ; Selectors for color picker macros:
  49.  
  50. fix2SmallFract    EQU         1
  51. smallFract2Fix    EQU         2
  52. cmy2RGB           EQU         3
  53. rgb2CMY           EQU         4
  54. hsl2RGB           EQU         5
  55. rgb2HSL           EQU         6
  56. hsv2RGB           EQU         7
  57. rgb2HSV           EQU         8
  58. getColor          EQU         9
  59.  
  60.  
  61.                   MACRO
  62.                   _Fix2SmallFract
  63.                   MOVE.W      #fix2SmallFract,-(SP)
  64.                   DC.W        $A82E                     ; _Pack12
  65.                   ENDM
  66.  
  67.                   MACRO
  68.                   _SmallFract2Fix
  69.                   MOVE.W      #smallFract2Fix,-(SP)
  70.                   DC.W        $A82E                     ; _Pack12
  71.                   ENDM
  72.  
  73.                   MACRO
  74.                   _CMY2RGB
  75.                   MOVE.W      #cmy2RGB,-(SP)
  76.                   DC.W        $A82E                     ; _Pack12
  77.                   ENDM
  78.  
  79.                   MACRO
  80.                   _RGB2CMY
  81.                   MOVE.W      #rgb2CMY,-(SP)
  82.                   DC.W        $A82E                     ; _Pack12
  83.                   ENDM
  84.  
  85.                   MACRO
  86.                   _HSL2RGB
  87.                   MOVE.W      #hsl2RGB,-(SP)
  88.                   DC.W        $A82E                     ; _Pack12
  89.                   ENDM
  90.  
  91.                   MACRO
  92.                   _RGB2HSL
  93.                   MOVE.W      #rgb2HSL,-(SP)
  94.                   DC.W        $A82E                     ; _Pack12
  95.                   ENDM
  96.  
  97.                   MACRO
  98.                   _HSV2RGB
  99.                   MOVE.W      #hsv2RGB,-(SP)
  100.                   DC.W        $A82E                     ; _Pack12
  101.                   ENDM
  102.  
  103.                   MACRO
  104.                   _RGB2HSV
  105.                   MOVE.W      #rgb2HSV,-(SP)
  106.                   DC.W        $A82E                     ; _Pack12
  107.                   ENDM
  108.  
  109.                   MACRO
  110.                   _GetColor
  111.                   MOVE.W      #getColor,-(SP)
  112.                   DC.W        $A82E                     ; _Pack12
  113.                   ENDM
  114.  
  115.     ENDIF    ; ...already included